home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 331 / gemfsc14 / aessrc14 / aesshel1.s < prev    next >
Text File  |  1989-04-06  |  2KB  |  66 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*  04/05/89 -  v1.2
  7. ;*              Finally received confirmation for the proper definitions 
  8. ;*              of shel_get/shel_put.  The (incorrect) definition of
  9. ;*              shel_get() was removed from this module and built properly
  10. ;*              in aesshel2.s.
  11. ;*========================================================================
  12.  
  13.           .include  "aesfast.sh"
  14.           
  15. ;*************************************************************************
  16. ;*
  17. ;* Shell library routines 1 of 2.
  18. ;*
  19. ;*************************************************************************
  20.  
  21. ;-------------------------------------------------------------------------
  22. ; shel_read
  23. ;-------------------------------------------------------------------------
  24.  
  25. _shel_read::
  26.           .cargs    #4,.pcmd.l,.ptail.l
  27.           AControl  120,0,1,2
  28.           lea       .pcmd(sp),a0    ; -> addrin
  29.           ACall     RET2USER
  30.           
  31. ;-------------------------------------------------------------------------
  32. ; shel_write
  33. ;-------------------------------------------------------------------------
  34.  
  35. _shel_write::
  36.           .cargs    #4,.doex,.wisgr,.wiscr,.pcmd.l,.ptail.l
  37.           AControl  121,3,1,2
  38.           lea       .doex(sp),a1        ; -> intin
  39.           lea       .pcmd(sp),a0        ; -> addrin
  40.           ACall     RET2USER
  41.           
  42.  
  43. ;-------------------------------------------------------------------------
  44. ; shel_find
  45. ;-------------------------------------------------------------------------
  46.  
  47. _shel_find::
  48.  
  49.           .cargs    #4,.pbuf.l
  50.           AControl  124,0,1,1
  51.           lea       .pbuf(sp),a0    ; -> addrin
  52.           ACall     RET2USER
  53.           
  54. ;-------------------------------------------------------------------------
  55. ; shel_envrn
  56. ;-------------------------------------------------------------------------
  57.  
  58. _shel_envrn::
  59.           .cargs    #4,.pvalue.l,pparm.l
  60.           AControl  125,0,1,3
  61.           lea       .pvalue(sp),a0    ; -> addrin
  62.           ACall     RET2USER
  63.           
  64. ;         end of code
  65.           
  66.